SaveScr ([nRow1],[nCol1],[nRow2],[nCol2]) --> aScreenArray:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions:
~~~~~~~~~~
The screen is saved (cursor, colors, text) to aScreeenArray.

Parameter description:
~~~~~~~~~~~~~~~~~~~~~~
nRow1: upper border of region to store
nCol1: left border ...
nRow2: bottom border ...
nCol2: right border ...
default is the whole screen

Return value:
~~~~~~~~~~~~~
aScreenArray:  array to store the data

Example:
~~~~~~~~
    local aS:=SaveScr()    //screen stored
    cls                    //erased
    InKey(0)               //wait for keypress
    RestScr(aS)            //screeen restore

Source code is in file  Object1.prg